diff --git a/changelog b/changelog
index 6057c3a..9dd21db 100644
--- a/changelog
+++ b/changelog
@@ -1,3 +1,5 @@
+20111116 wxh src/axiom-website/patches.html 20111116.02.wxh.patch
+20111116 wxh src/interp/i-spec2.lisp fix AN has sqrt: % -> %
 20111116 tpd src/axiom-website/patches.html 20111116.01.tpd.patch
 20111116 tpd src/interp/c-doc.lisp treeshake compiler
 20111116 tpd books/bookvol9 treeshake compiler
diff --git a/src/axiom-website/patches.html b/src/axiom-website/patches.html
index fed12b5..697b44d 100644
--- a/src/axiom-website/patches.html
+++ b/src/axiom-website/patches.html
@@ -3682,5 +3682,7 @@ books/bookvol9 treeshake compiler<br/>
 books/bookvol9 treeshake compiler, remove apply.lisp<br/>
 <a href="patches/20111116.01.tpd.patch">20111116.01.tpd.patch</a>
 books/bookvol9 treeshake compiler<br/>
+<a href="patches/20111116.02.wxh.patch">20111116.02.wxh.patch</a>
+src/interp/i-spec2.lisp fix AN has sqrt: % -> %<br/>
  </body>
 </html>
diff --git a/src/interp/i-spec2.lisp.pamphlet b/src/interp/i-spec2.lisp.pamphlet
index e5e4476..6aacd87 100644
--- a/src/interp/i-spec2.lisp.pamphlet
+++ b/src/interp/i-spec2.lisp.pamphlet
@@ -587,7 +587,7 @@ There are several special modes used in these functions:
                     ('T (MKQ (|unabbrev| |type|)))))
          (SPADLET |catCode|
                   (PROGN
-                    (SPADLET |prop| (|unabbrev| |prop|))
+                    (SPADLET |prop| (|unabbrev| (MSUBST '$ '% |prop|)))
                     (COND
                       ((|evaluateType0| |prop|)
                        (CONS '|evaluateType| (CONS (MKQ |prop|) NIL)))