0.1 fixup

darcs-hash:0afa0bdd0276438d01d531551acb205ff47528ad

diff --git a/if.lisp b/if.lisp
index a5a98abec8a3082ea833b2838dbddd88392e4133..f61910d388df514c7691a3bc079047fc952d2820 100644 (file)
--- a/if.lisp
+++ b/if.lisp
@@ -528,7 +528,7 @@ word in dictionary, add it."
                     (function #'read-property-execute)\r
                     (list #'read-property-list)\r
                     (t #'read-property-other))\r
-             (slot-value obj property) args)))\r
+             (slot-value self property) args)))\r
 \r
 (defmacro declare-rule (&rest args)\r
   "Declare new rules"\r
@@ -682,7 +682,7 @@ word in dictionary, add it."
 \r
 (defun in (obj1 &rest what)\r
   "Tests whether the first object is inside some of the others"\r
-  (some (lambda (x) (eql (parent obj) x)) what))\r
+  (some (lambda (x) (eql (parent obj1) x)) what))\r
 \r
 (defun destroy (obj)\r
   "Destroy the object, like, totally!"\r