--- a/StoreSourceCodeManager.st	Fri Mar 22 11:11:55 2013 +0000
+++ b/StoreSourceCodeManager.st	Thu Mar 28 12:22:48 2013 +0000
@@ -53,6 +53,7 @@
 "
 ! !
 
+
 !StoreSourceCodeManager class methodsFor:'initialization'!
 
 connectToDatabase
@@ -90,6 +91,7 @@
     ^ session
 ! !
 
+
 !StoreSourceCodeManager class methodsFor:'accessing'!
 
 dbName
@@ -161,6 +163,7 @@
     self defaultDBInfo userName:aString.
 ! !
 
+
 !StoreSourceCodeManager class methodsFor:'basic access'!
 
 checkinClass:aClass fileName:classFileName directory:packageDir module:moduleDir source:sourceFile logMessage:logMessage force:force
@@ -188,6 +191,7 @@
     ^ self shouldImplement
 ! !
 
+
 !StoreSourceCodeManager class methodsFor:'basic administration'!
 
 checkForExistingContainer:fileName inModule:moduleName directory:dirName
@@ -233,10 +237,12 @@
     ^ self shouldImplement
 ! !
 
+
 !StoreSourceCodeManager class methodsFor:'queries'!
 
 isExperimental
-    ^ OperatingSystem getLoginName ~= 'cg'.
+    (OperatingSystem getLoginName = 'cg') ifTrue:[^ false].
+    (OperatingSystem getLoginName = 'exept') ifTrue:[^ false].
     ^ true
 
     "Created: / 16-08-2006 / 11:23:09 / cg"
@@ -295,6 +301,7 @@
     "Created: / 27-09-2011 / 16:47:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+
 !StoreSourceCodeManager class methodsFor:'saving'!
 
 savePreferencesOn:aStream
@@ -313,6 +320,7 @@
     "Modified: / 18-04-2011 / 17:15:12 / cg"
 ! !
 
+
 !StoreSourceCodeManager class methodsFor:'source code administration'!
 
 getExistingContainersInModule:aModule directory:aPackage
@@ -339,6 +347,7 @@
     ^ self shouldImplement
 ! !
 
+
 !StoreSourceCodeManager class methodsFor:'subclass responsibility'!
 
 reportHistoryLogSince:timeGoal filterSTSources:filter filterUser:userFilter filterRepository:repositoryFilter filterModules:moduleFilter inTo:aBlock
@@ -347,6 +356,7 @@
     ^ self shouldImplement
 ! !
 
+
 !StoreSourceCodeManager class methodsFor:'testing'!
 
 isStore
@@ -355,6 +365,7 @@
     "Created: / 16-08-2006 / 10:59:06 / cg"
 ! !
 
+
 !StoreSourceCodeManager::DBInfo methodsFor:'accessing'!
 
 dbName
@@ -422,6 +433,7 @@
     userName := something.
 ! !
 
+
 !StoreSourceCodeManager::DBInfo methodsFor:'printing & storing'!
 
 storeOn:aStream
@@ -443,10 +455,11 @@
     "
 ! !
 
+
 !StoreSourceCodeManager class methodsFor:'documentation'!
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libbasic3/StoreSourceCodeManager.st,v 1.23 2012/01/19 15:19:57 cg Exp §'
+    ^ '$Header: /cvs/stx/stx/libbasic3/StoreSourceCodeManager.st,v 1.24 2013-02-22 14:56:52 cg Exp $'
 !
 
 version_HG