--- a/Date.st	Fri Feb 13 22:59:03 2015 +0100
+++ b/Date.st	Fri Feb 13 23:48:30 2015 +0100
@@ -592,7 +592,7 @@
                 fc == $% ifTrue:[
                     sel := ''.
                     (fc := formatStream peekOrNil) notNil ifTrue:[
-                        fc = $( ifTrue:[
+                        fc == $( ifTrue:[
                             formatStream next.
                             sel := formatStream upTo:$)
                         ] ifFalse:[
@@ -3465,11 +3465,11 @@
 !Date class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.165 2015-02-05 15:15:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.166 2015-02-13 22:48:30 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.165 2015-02-05 15:15:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.166 2015-02-13 22:48:30 cg Exp $'
 ! !