--- a/MCGOODSRepository.st	Sat Aug 20 13:43:58 2011 +0200
+++ b/MCGOODSRepository.st	Sat Aug 20 13:44:04 2011 +0200
@@ -21,18 +21,10 @@
 	^ 'GOODS'
 !
 
-fillInTheBlankRequest
-	^ 'GOODS Repository:'
-!
-
 host: hostname port: portNumber
 	^ self new
 		host: hostname;
 		port: portNumber
-!
-
-morphicConfigure
-	^ self fillInTheBlankConfigure
 ! !
 
 !MCGOODSRepository methodsFor:'as yet unclassified'!
@@ -43,8 +35,11 @@
 !
 
 db
-	(connection isNil or: [connection isConnected not]) ifTrue: [connection _ KKDatabase onHost:hostname port: port].
-	
+	(connection isNil or: [connection isConnected not]) ifTrue: [
+		connection := Smalltalk at: #KKDatabase ifPresent: [:cl | 
+			cl  onHost:hostname port: port
+		]
+	].
 	^ connection
 !
 
@@ -53,11 +48,7 @@
 !
 
 host: aString
-	hostname _ aString
-!
-
-morphicOpen: aWorkingCopy
-	(MCRepositoryInspector repository: self workingCopy: aWorkingCopy) show
+	hostname := aString
 !
 
 packages
@@ -65,7 +56,7 @@
 !
 
 port: aNumber
-	port _ aNumber
+	port := aNumber
 !
 
 root
@@ -84,5 +75,13 @@
 !MCGOODSRepository class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCGOODSRepository.st,v 1.1 2006-11-22 13:22:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCGOODSRepository.st,v 1.2 2011-08-20 11:44:04 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCGOODSRepository.st,v 1.2 2011-08-20 11:44:04 cg Exp $'
+!
+
+version_SVN
+    ^ '§Id: MCGOODSRepository.st 5 2010-08-29 07:30:29Z vranyj1 §'
 ! !