--- a/MCSettingsApp.st	Tue Feb 25 14:39:03 2014 +0100
+++ b/MCSettingsApp.st	Sat Mar 01 10:40:15 2014 +0100
@@ -456,16 +456,23 @@
 
     asking := true.
     [asking] whileTrue:[
-        dialog := Dialog 
-                forRequestText:'Please Fill in Data:' 
-                lines:10 columns:60 
-                initialAnswer: (lastInput ? class creationTemplate)  
-                model:codeHolder.
-        dialog open.
-        dialog accepted ifFalse:[^self].
+        class == MCDirectoryRepository ifTrue:[
+            |dir|
+            dir := Dialog requestDirectoryName:'MC Repository Directory'.
+            dir isEmptyOrNil ifTrue:[^ self].
+            repo := MCDirectoryRepository directory:dir.
+        ] ifFalse:[
+            dialog := Dialog 
+                    forRequestText:'Please Fill in Data:' 
+                    lines:10 columns:60 
+                    initialAnswer: (lastInput ? class creationTemplate)  
+                    model:codeHolder.
+            dialog open.
+            dialog accepted ifFalse:[^self].
+            lastInput := codeHolder value.
+            repo := Compiler evaluate: codeHolder value.
+        ].
 
-        lastInput := codeHolder value.
-        repo := Compiler evaluate: codeHolder value.
         repo isValid ifTrue:[
             asking := false
         ] ifFalse:[
@@ -672,14 +679,14 @@
 !MCSettingsApp class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCSettingsApp.st,v 1.13 2013-04-18 23:49:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCSettingsApp.st,v 1.14 2014-03-01 09:40:15 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCSettingsApp.st,v 1.13 2013-04-18 23:49:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCSettingsApp.st,v 1.14 2014-03-01 09:40:15 cg Exp $'
 !
 
 version_SVN
-    ^ '§Id: MCSettingsApp.st 33 2011-07-21 11:26:12Z vranyj1 §'
+    ^ '$Id: MCSettingsApp.st,v 1.14 2014-03-01 09:40:15 cg Exp $'
 ! !