--- a/MethodDictionary.st	Wed Jul 03 11:02:35 1996 +0200
+++ b/MethodDictionary.st	Wed Jul 03 11:07:46 1996 +0200
@@ -62,11 +62,11 @@
 withAll:aDictionary
     "create a MethodDictionary from another Dictionary"
 
-    |newDict i|
+    |newDict i "{ Class: SmallInteger }" |
 
     newDict := self new:aDictionary size.
     i := 1.
-    aDictionary keysAndValuesDo:[ :key :value |
+    aDictionary keysAndValuesDo:[:key :value |
         newDict basicAt:i   put:key.
         newDict basicAt:i+1 put:value.
         i := i+2.
@@ -82,28 +82,31 @@
 
     "Created: 12.6.1996 / 13:46:43 / stefan"
     "Modified: 12.6.1996 / 13:56:36 / stefan"
+    "Modified: 3.7.1996 / 11:05:55 / cg"
 !
 
 withKeys:keys andValues:values
     "create a MethodDictionary from a key (selector) array and value (method) array"
 
-    |inst sz|
+    |inst sz "{ Class: SmallInteger }" |
 
     sz := keys size.
     inst := self new:sz.
-    1 to:sz do:[:i|
+    1 to:sz do:[:i |
         inst basicAt:(i*2)-1  put:(keys   at:i).
         inst basicAt:(i*2)    put:(values at:i).
     ].
     ^ inst
 
     "Created: 12.6.1996 / 13:46:43 / stefan"
+    "Modified: 3.7.1996 / 11:05:34 / cg"
 ! !
 
 !MethodDictionary  class methodsFor:'binary storage'!
 
 binaryFullDefinitionFrom:stream manager:manager
-   |size inst|
+   |size "{ Class: SmallInteger }" 
+    inst|
 
    size := manager nextObject.
    inst := self new:size.
@@ -115,6 +118,7 @@
 
     "Created: 7.6.1996 / 13:37:22 / stefan"
     "Modified: 7.6.1996 / 13:52:08 / stefan"
+    "Modified: 3.7.1996 / 11:06:34 / cg"
 ! !
 
 !MethodDictionary  class methodsFor:'queries'!
@@ -431,5 +435,5 @@
 !MethodDictionary  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/MethodDictionary.st,v 1.8 1996-07-01 19:32:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/MethodDictionary.st,v 1.9 1996-07-03 09:07:46 cg Exp $'
 ! !