--- a/Object.st	Fri Aug 17 14:37:43 2001 +0200
+++ b/Object.st	Fri Aug 17 14:42:43 2001 +0200
@@ -565,10 +565,16 @@
 !
 
 currentHand
-        "Return a usable HandMorph -- the one associated with the object's current environment.  This method will always return a hand, even if it has to conjure one up as a last resort.  If a particular hand is actually handling events at the moment (such as a remote hand or a ghost hand), it will be returned."
-
-        | w |
-        ^ (w _ self currentWorld) activeHand ifNil: [w hands first]
+    "Return a usable HandMorph -- the one associated with the object's current environment.  This method will always return a hand, even if it has to conjure one up as a last resort.  If a particular hand is actually handling events at the moment (such as a remote hand or a ghost hand), it will be returned."
+
+    |w h|
+
+    w := self currentWorld.
+    h := w activeHand.
+    h isNil ifTrue:[
+        h := w hands first
+    ].
+    ^ h
 !
 
 currentWorld
@@ -8301,6 +8307,6 @@
 !Object class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.360 2001-07-23 16:04:00 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.361 2001-08-17 12:42:13 cg Exp $'
 ! !
 Object initialize!

--- a/Project.st	Fri Aug 17 14:37:43 2001 +0200
+++ b/Project.st	Fri Aug 17 14:42:43 2001 +0200
@@ -670,7 +670,8 @@
 !
 
 changedClasses
-    ^  changedClasses ifNil:[changedClasses := IdentitySet new].
+    changedClasses isNil ifTrue:[changedClasses := IdentitySet new].
+    ^ changedClasses
 
     "
      self new changedClasses
@@ -3890,6 +3891,6 @@
 !Project class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.169 2001-07-31 15:10:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Project.st,v 1.170 2001-08-17 12:42:43 cg Exp $'
 ! !
 Project initialize!