--- ../axiom-old/src/interp/pf2sex.boot.pamphlet	2005-08-14 14:05:13.999276768 +0200
+++ src/interp/pf2sex.boot.pamphlet	2006-03-02 17:06:41.863940168 +0100
@@ -369,8 +369,10 @@
     '"0"
   bfForm := MAKE_-FLOAT(intPart, READ_-FROM_-STRING fracPartString,
     LENGTH fracPartString, expPart)
-  [., frac, :exp] := bfForm
-  [["$elt", intNewFloat(), 'float], frac, exp, 10]
+  $useBFasDefault =>
+    [., frac, :exp] := bfForm
+    [["$elt", intNewFloat(), 'float], frac, exp, 10]
+  bfForm 
 
 loopIters2Sex iterList ==
   result := nil