diff --git a/CHANGELOG b/CHANGELOG
index a708417..b75b415 100644
--- a/CHANGELOG
+++ b/CHANGELOG
@@ -1,3 +1,7 @@
+0.7
+
+	* Works with Shen 15.
+
 0.6
 
 	* Works with Shen 13.
diff --git a/init.scm b/init.scm
index c2ca67d..69c2022 100644
--- a/init.scm
+++ b/init.scm
@@ -1,6 +1,6 @@
 (set ($$quote *language*) "Scheme")
 (set ($$quote *implementation*) "chibi-scheme")
-(set ($$quote *port*) "0.6")
+(set ($$quote *port*) "0.7")
 (set ($$quote *porters*) "Bruno Deferrari")
 (set ($$quote *stinput*) ($$current-input-port))
 (set ($$quote *stoutput*) ($$current-output-port))
diff --git a/shen.sld b/shen.sld
index 5ea6013..6910ec4 100644
--- a/shen.sld
+++ b/shen.sld
@@ -67,6 +67,9 @@
       ($$for-each $$display ($$list "Loading " filename " ...\n"))
       ($$for-each eval-kl ($$read-kl-file filename)))
 
+    ;; Avoid warning about shen.demod not being defined yet
+    (defun shen.demod (Val) Val)
+
     ($$eval-kl-file "toplevel.kl")
     ($$eval-kl-file "core.kl")
 
diff --git a/shen/primitives.scm b/shen/primitives.scm
index b5d46b1..64bfdac 100644
--- a/shen/primitives.scm
+++ b/shen/primitives.scm
@@ -342,7 +342,7 @@
    intern 1 identical 4 inferences 0 input 1 input+ 2 implementation 0 intersection 2 kill 0 language 0
    length 1 lineread 1 load 1 < 2 <= 2 vector 1 macroexpand 1 map 2 mapcan 2 maxinferences 1 not 1 nth 2
    n->string 1 number? 1 occurs-check 1 occurrences 2 occurs-check 1 optimise 1 or 2 os 0 package 3 port 0
-   porters 0 pos 2 print 1 profile 1 profile-results 0 pr 2 ps 1 preclude 1 preclude-all-but 1 protect 1
+   porters 0 pos 2 print 1 profile 1 profile-results 1 pr 2 ps 1 preclude 1 preclude-all-but 1 protect 1
    address-> 3 put 4 reassemble 2 read-file-as-string 1 read-file 1 read 1 read-byte 1 read-from-string 1
    release 0 remove 2 reverse 1 set 2 simple-error 1 snd 1 specialise 1 spy 1 step 1 stinput 0 stoutput 0
    string->n 1 string->symbol 1 string? 1 strong-warning 1 subst 3 sum 1 symbol? 1 tail 1 tl 1 tc 1 tc? 0