--- a/StoreSourceCodeManager.st	Thu Nov 09 15:12:06 2006 +0100
+++ b/StoreSourceCodeManager.st	Thu Nov 09 15:12:09 2006 +0100
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libbasic3' }"
 
 AbstractSourceCodeManager subclass:#StoreSourceCodeManager
@@ -164,6 +163,20 @@
     "Created: / 16-08-2006 / 11:06:09 / cg"
 ! !
 
+!StoreSourceCodeManager class methodsFor:'saving'!
+
+savePreferencesOn:aStream
+    aStream nextPutLine:'  StoreSourceCodeManager repositoryInfoPerModule:' , self repositoryInfoPerModule storeString , '.'.
+    (Smalltalk at:#SourceCodeManager) == StoreSourceCodeManager ifTrue:[
+        aStream nextPutLine:'  Smalltalk at:#SourceCodeManager put: StoreSourceCodeManager.'.
+        aStream nextPutLine:'  StoreSourceCodeManager hostAndDBName:' , self hostAndDBName storeString , '.'.
+        aStream nextPutLine:'  StoreSourceCodeManager dbName:' , self dbName storeString , '.'.
+        aStream nextPutLine:'  StoreSourceCodeManager userName:' , self userName storeString , '.'.
+    ].
+
+    "Created: / 09-11-2006 / 15:10:25 / cg"
+! !
+
 !StoreSourceCodeManager class methodsFor:'testing'!
 
 isExperimental
@@ -270,5 +283,5 @@
 !StoreSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/StoreSourceCodeManager.st,v 1.6 2006-08-26 13:32:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/StoreSourceCodeManager.st,v 1.7 2006-11-09 14:12:09 cg Exp $'
 ! !