--- a/RegressionTests__StreamTests.st	Tue Apr 17 14:06:09 2012 +0200
+++ b/RegressionTests__StreamTests.st	Tue Apr 17 14:43:52 2012 +0200
@@ -37,6 +37,16 @@
     "Created: / 16-09-2011 / 14:56:05 / cg"
 ! !
 
+!StreamTests methodsFor:'setup'!
+
+setUp
+    (Smalltalk classNamed:'stx_libcompat') isNil ifTrue:[
+        (Smalltalk loadPackage:'stx:libcompat') ifFalse:[
+            self error:'libcompat cannot be loaded'.        
+        ].
+    ].
+! !
+
 !StreamTests methodsFor:'tests'!
 
 test01_numberReading_squeak
@@ -44,8 +54,8 @@
 
     b := #[1 2 3 4].
     s := b readStream.
-
-    self assert:( val := s nextLittleEndianNumber:4 ) = 16r04030201.
+    val := s nextLittleEndianNumber:4.
+    self assert:val = 16r04030201.
     self assert:( s atEnd ).
 
     self assert:( val := #[16r81 16r82 16r83 16r84] readStream nextLittleEndianNumber:4 ) = 16r84838281.