--- a/LargeInteger.st	Wed Oct 25 14:04:46 2000 +0200
+++ b/LargeInteger.st	Wed Oct 25 14:07:18 2000 +0200
@@ -1900,13 +1900,13 @@
 
 !LargeInteger methodsFor:'printing & storing'!
 
-storeOn:aStream
+xxxstoreOn:aStream
     "append a representation of the receiver to aStream, which can
      be used to reconstruct the receiver."
 
+    aStream nextPutAll:'('.
     self printOn:aStream.
-    aStream nextPutAll:' asLargeInteger'
-! !
+    aStream nextPutAll:' asLargeInteger)'! !
 
 !LargeInteger methodsFor:'private'!
 
@@ -4366,5 +4366,5 @@
 !LargeInteger class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/LargeInteger.st,v 1.155 2000-07-02 12:49:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/LargeInteger.st,v 1.156 2000-10-25 12:07:18 ca Exp $'
 ! !