--- a/Integer.st	Mon Jul 22 18:22:01 2019 +0200
+++ b/Integer.st	Mon Jul 22 19:43:31 2019 +0200
@@ -1774,11 +1774,11 @@
 
     |a b shift ma mb val|
 
-    self assert:(self >= 0).
-    self assert:(a >= 0).
-
     a := self.
     b := anInteger.
+    self assert:(a >= 0).
+    self assert:(b >= 0).
+
     val := 0.
     shift := 0.
     [ (a == 0) and:[b == 0]] whileFalse:[
@@ -1807,6 +1807,7 @@
 
     "Created: / 28-08-2017 / 14:33:08 / cg"
     "Modified: / 28-08-2017 / 19:19:31 / cg"
+    "Modified: / 22-07-2019 / 19:43:04 / Claus Gittinger"
 !
 
 bitInterleaveWith:integer1 and:integer2