--- a/SnapShotImageMemory.st	Thu May 17 13:09:50 2001 +0200
+++ b/SnapShotImageMemory.st	Mon Jun 25 18:50:55 2001 +0200
@@ -891,6 +891,21 @@
     self halt.
 !
 
+flags
+    |flagsSlotOffset flagsPtr flags|
+
+    self isMethod ifTrue:[
+        flagsSlotOffset := Method instVarOffsetOf:'flags'.
+    ].
+    flagsSlotOffset notNil ifTrue:[
+        flagsPtr := self at:flagsSlotOffset.
+        flags := memory fetchObjectAt:flagsPtr.
+        ^ flags
+    ].
+
+    self halt.
+!
+
 hasCode
     ^ false
 !
@@ -995,18 +1010,10 @@
 !
 
 numArgs
-    |flagsSlotOffset flagsPtr flags|
-
-    self isMethod ifTrue:[
-        flagsSlotOffset := Method instVarOffsetOf:'flags'.
-    ].
-    flagsSlotOffset notNil ifTrue:[
-        flagsPtr := self at:flagsSlotOffset.
-        flags := memory fetchObjectAt:flagsPtr.
-        ^ (flags bitAnd:(Method numArgsMaskInFlags)) bitShift:(Method numArgsShiftInFlags negated)   
-    ].
-
-    self halt.
+    |flags|
+
+    flags := self flags.
+    ^ (flags bitAnd:(Method numArgsMaskInFlags)) bitShift:(Method numArgsShiftInFlags negated)   
 !
 
 package