fix!

darcs-hash:cc898195ef1bf6c2fdcaee5ed4d19fb60e66322a

diff --git a/if.lisp b/if.lisp
index dac5396b28f365061b1aca200b7c00f67aecb6e4..dd8d31ae82e56a99d3aba7d3394afba901632796 100644 (file)
--- a/if.lisp
+++ b/if.lisp
@@ -343,7 +343,7 @@ word in dictionary, add it."
   "Tests whether flag2 unsets flag1"\r
   (let ((fl1 (symbol-name flag1))\r
         (fl2 (symbol-name flag2)))\r
-    (and (char= (aref fl2 0) #\~) (string= fl1 fl2 :start 1))))\r
+    (and (char= (aref fl2 0) #\~) (string= fl1 fl2 :start2 1))))\r
 \r
 (defun combine-flags (flaglist)\r
   "Combine a list of flags into a _set_ of flags"\r