--- a/StoreSourceCodeManager.st	Fri Aug 25 18:17:14 2006 +0200
+++ b/StoreSourceCodeManager.st	Fri Aug 25 18:18:49 2006 +0200
@@ -57,13 +57,15 @@
 !StoreSourceCodeManager class methodsFor:'initialization'!
 
 connectToDatabase
-    |session|
+    |session dbInfo|
+
+    dbInfo := self defaultDBInfo.
 
     SQL::SQLError handle:[:ex |
         self warn:('Failed to connect to Database:\\' withCRs,ex description).
         ^ self.
     ] do:[
-        session := self tryToConnectToDatabase:(self defaultDBInfo).
+        session := self tryToConnectToDatabase:dbInfo.
     ].
 
     session isNil ifTrue:[
@@ -71,7 +73,7 @@
         ^ self
     ].
     Connection := session.
-self halt.
+    Transcript showCR:('Connected to Store-DB: ',dbInfo hostAndDBName).
 !
 
 tryToConnectToDatabase:dbInfo
@@ -165,7 +167,7 @@
 !StoreSourceCodeManager class methodsFor:'testing'!
 
 isExperimental
-    ^ false.
+    "/ ^ false.
     ^ true
 
     "Created: / 16-08-2006 / 11:23:09 / cg"
@@ -189,7 +191,6 @@
 
 hostAndDBName
     hostName isEmptyOrNil ifTrue:[ ^ dbName ].
-    dbName isEmptyOrNil ifTrue:[ self halt. ^ hostName ].
     ^ dbName,'@',hostName
 !
 
@@ -269,5 +270,5 @@
 !StoreSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/StoreSourceCodeManager.st,v 1.3 2006-08-25 16:14:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/StoreSourceCodeManager.st,v 1.4 2006-08-25 16:18:49 cg Exp $'
 ! !