--- a/Stream.st	Fri Aug 05 03:03:07 1994 +0200
+++ b/Stream.st	Fri Aug 05 03:03:10 1994 +0200
@@ -20,6 +20,8 @@
 Stream comment:'
 COPYRIGHT (c) 1989 by Claus Gittinger
               All Rights Reserved
+
+$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.10 1994-08-05 01:02:44 claus Exp $
 '!
 
 !Stream class methodsFor:'documentation'!
@@ -40,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.9 1994-06-02 16:22:17 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Stream.st,v 1.10 1994-08-05 01:02:44 claus Exp $
 "
 !
 
@@ -429,25 +431,21 @@
     "claus: this method is central in binaryStorage -
      therefore it has been tuned a bit (and needs even more tuning)"
 
-    n == 1 ifTrue:[
-        v class == SmallInteger ifTrue:[
+    v class == SmallInteger ifTrue:[
+        n == 1 ifTrue:[
             (v between:0 and:16rFF) ifTrue:[
                 self nextPut:v.
                 ^ self
             ].
         ].
-    ].
-    n == 2 ifTrue:[
-        v class == SmallInteger ifTrue:[
+        n == 2 ifTrue:[
             (v between:0 and:16rFFFF) ifTrue:[
                 self nextPut:(v bitShift:-8).
                 self nextPut:(v bitAnd:16rFF).
                 ^ self
             ].
         ].
-    ].
-    n == 3 ifTrue:[
-        v class == SmallInteger ifTrue:[
+        n == 3 ifTrue:[
             (v between:0 and:16rFFFFFF) ifTrue:[
                 self nextPut:((v bitShift:-16) bitAnd:16rFF).
                 self nextPut:((v bitShift:-8) bitAnd:16rFF).
@@ -455,9 +453,7 @@
                 ^ self
             ].
         ].
-    ].
-    n == 4 ifTrue:[
-        v class == SmallInteger ifTrue:[
+        n == 4 ifTrue:[
             (v >= 0) ifTrue:[
                 self nextPut:((v bitShift:-24) bitAnd:16rFF).
                 self nextPut:((v bitShift:-16) bitAnd:16rFF).