diff --git a/changelog b/changelog
index a1c2071..594ca27 100644
--- a/changelog
+++ b/changelog
@@ -1,3 +1,5 @@
+20091112 tpd src/axiom-website/patches.html 20091112.02.tpd.patch
+20091112 tpd src/interp/i-syscmd remove unused parseFromString
 20091112 tpd src/axiom-website/patches.html 20091112.01.tpd.patch
 20091112 tpd src/interp/Makefile remove obey
 20091112 tpd src/interp/obey.lisp removed. contains nothing of interest.
diff --git a/src/axiom-website/patches.html b/src/axiom-website/patches.html
index b020c8e..16a7777 100644
--- a/src/axiom-website/patches.html
+++ b/src/axiom-website/patches.html
@@ -2249,5 +2249,7 @@ bookvol10.2, bookvol10.3 define hash=SXHASH in SetCategory<br/>
 bookvol5 merge msg.lisp<br/>
 <a href="patches/20091112.01.tpd.patch">20091112.01.tpd.patch</a>
 src/interp/Makefile remove obey.lisp<br/>
+<a href="patches/20091112.02.tpd.patch">20091112.02.tpd.patch</a>
+src/interp/i-syscmd remove unused parseFromString<br/>
  </body>
 </html>
diff --git a/src/interp/i-syscmd.lisp.pamphlet b/src/interp/i-syscmd.lisp.pamphlet
index 4d2118b..1b14556 100644
--- a/src/interp/i-syscmd.lisp.pamphlet
+++ b/src/interp/i-syscmd.lisp.pamphlet
@@ -3091,26 +3091,6 @@
                                        (CONS (|tokTran| |tok|)
                                         G167396))))))))))))))
 
-;--------------------> NEW DEFINITION (override in osyscmd.boot.pamphlet)
-;parseFromString(s) ==
-;  $useNewParser =>
-;     ncParseFromString s
-;  $InteractiveMode :local := true
-;  $BOOT: local := NIL
-;  $SPAD: local := true
-;  $e:local := $InteractiveFrame
-;  string2SpadTree s
-
-(DEFUN |parseFromString| (|s|)
-  (PROG (|$InteractiveMode| $BOOT $SPAD |$e|)
-    (DECLARE (SPECIAL |$InteractiveMode| $BOOT $SPAD |$e| |$useNewParser|))
-    (RETURN
-      (COND
-        (|$useNewParser| (|ncParseFromString| |s|))
-        ('T (SPADLET |$InteractiveMode| 'T) (SPADLET $BOOT NIL)
-         (SPADLET $SPAD 'T) (SPADLET |$e| |$InteractiveFrame|)
-         (|string2SpadTree| |s|))))))
-
 ;handleTokensizeSystemCommands(unabr, optionList) ==
 ;  optionList := [dumbTokenize opt for opt in optionList]
 ;  parcmd := [[tokTran tok for tok in opt] for opt in optionList]