diff -r eeece635d420 -r 9afc4af5a88a DialogBox.st
--- a/DialogBox.st	Sat Nov 07 21:24:00 2009 +0100
+++ b/DialogBox.st	Mon Nov 09 10:18:44 2009 +0100
@@ -3104,7 +3104,7 @@
         okLabel:nil 
         cancelLabel:nil 
         title:nil 
-        onCancel:''
+        onCancel:nil
         list:nil
         initialSelection:nil
         entryCompletionBlock:nil
@@ -3640,7 +3640,7 @@
         centered:(ForceModalBoxesToOpenAtCenter ? false) 
         action:nil 
         initialAnswer:initial
-        onCancel:''
+        onCancel:nil
 
     "
      Dialog 
@@ -3665,7 +3665,7 @@
         okLabel:nil 
         cancelLabel:nil 
         title:nil 
-        onCancel:''
+        onCancel:nil
         list:nil
         initialSelection:nil
         entryCompletionBlock:nil
@@ -3692,7 +3692,7 @@
         okLabel:nil 
         cancelLabel:nil 
         title:nil 
-        onCancel:''
+        onCancel:nil
         list:nil
         initialSelection:nil
         entryCompletionBlock:entryCompletionBlock
@@ -3725,7 +3725,7 @@
         okLabel:nil 
         cancelLabel:nil 
         title:nil 
-        onCancel:'' 
+        onCancel:nil 
         list:nil 
         initialSelection:anInterval
         entryCompletionBlock:nil
@@ -3754,7 +3754,7 @@
         okLabel:nil 
         cancelLabel:nil 
         title:nil 
-        onCancel:''
+        onCancel:nil
         list:aList
         initialSelection:nil
         entryCompletionBlock:nil
@@ -4128,7 +4128,7 @@
         okLabel:nil 
         cancelLabel:nil 
         title:titleString 
-        onCancel:''
+        onCancel:nil
         list:nil
         initialSelection:nil
         entryCompletionBlock:nil
@@ -8997,11 +8997,11 @@
 !DialogBox class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.291 2009-11-02 11:25:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.292 2009-11-09 09:18:44 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.291 2009-11-02 11:25:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/DialogBox.st,v 1.292 2009-11-09 09:18:44 cg Exp $'
 ! !
 
 DialogBox initialize!