From a55a923ba8e14bae6a6590c2b28b379f773f8760 Mon Sep 17 00:00:00 2001
From: grue <grue@mail.ru>
Date: Wed, 8 Feb 2006 17:30:38 +0000
Subject: [PATCH] fix!

darcs-hash:cc898195ef1bf6c2fdcaee5ed4d19fb60e66322a
---
 if.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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