--- a/DataBaseSourceCodeManager.st	Mon Dec 01 13:48:35 2014 +0100
+++ b/DataBaseSourceCodeManager.st	Mon Dec 01 13:49:09 2014 +0100
@@ -476,7 +476,7 @@
                 "/ already there?
                 |rslt|
 
-                rslt := dbConnection executeQuery:( 'select 1 from versions where key = ''%1''' bindWith:newRevision).
+                rslt := dbConnection executeQuery:( 'select * from versions where key = ''%1''' bindWith:newRevision).
                 rslt next isNil ifTrue:[
                     "/ not there - error
                     self error:'cannot insert chunk int db'
@@ -516,14 +516,14 @@
 checkForExistingModule:moduleDir directory:packageDir
     "check for a package directory to be present; return true, if it does"
 
-    |handle packagePresent name|
+    |handle packagePresent packageName|
 
     handle := self dbHandleForModule:moduleDir.
-    name := moduleDir,':',packageDir.
+    packageName := moduleDir,':',packageDir.
 
     packagePresent := false.
     handle
-        withResultForQuery: ('select * from packages where name = "%1"' bindWith:name) 
+        withResultForQuery: ('select 1 from packages where name = "%1"' bindWith:packageName) 
         do:[:result |
             packagePresent := result numRows > 0.
         ].
@@ -754,10 +754,10 @@
 !DataBaseSourceCodeManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/DataBaseSourceCodeManager.st,v 1.14 2014-12-01 12:05:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/DataBaseSourceCodeManager.st,v 1.15 2014-12-01 12:49:09 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/DataBaseSourceCodeManager.st,v 1.14 2014-12-01 12:05:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/DataBaseSourceCodeManager.st,v 1.15 2014-12-01 12:49:09 cg Exp $'
 ! !