Index: tclStrToD.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclStrToD.c,v
retrieving revision 1.34
diff -u -r1.34 tclStrToD.c
--- tclStrToD.c	1 Apr 2008 20:08:22 -0000	1.34
+++ tclStrToD.c	1 Dec 2008 21:24:49 -0000
@@ -410,13 +412,13 @@
 	    if (flags & TCL_PARSE_HEXADECIMAL_ONLY) {
 		goto zerox;
 	    }
-	    if (flags & TCL_PARSE_SCAN_PREFIXES) {
-		goto zeroo;
-	    }
 	    if (c == 'b' || c == 'B') {
 		state = ZERO_B;
 		break;
 	    }
+	    if (flags & TCL_PARSE_SCAN_PREFIXES) {
+		goto zeroo;
+	    }
 	    if (c == 'o' || c == 'O') {
 		explicitOctal = 1;
 		state = ZERO_O;
