diff --git a/ueforth/common/floats.h b/ueforth/common/floats.h
index c070a4e..081eed2 100644
--- a/ueforth/common/floats.h
+++ b/ueforth/common/floats.h
@@ -33,4 +33,4 @@
   X("1/F", FINVERSE, *fp = 1.0 / *fp) \
   X("S>F", STOF, *++fp = (float) tos; DROP) \
   X("F>S", FTOS, DUP; tos = (cell_t) *fp--) \
-
+  X("F>NUMBER?", FCONVERT, tos = fconvert((const char *) *sp, tos, fp); --sp)
diff --git a/ueforth/common/forth_namespace_tests.fs b/ueforth/common/forth_namespace_tests.fs
index cbfdccf..a4333aa 100644
--- a/ueforth/common/forth_namespace_tests.fs
+++ b/ueforth/common/forth_namespace_tests.fs
@@ -216,7 +216,6 @@ e: check-core-opcodes
   out: IMMEDIATE 
   out: DOES> 
   out: CREATE 
-  out: F>NUMBER? 
   out: S>NUMBER? 
   out: PARSE 
   out: FIND 
@@ -254,6 +253,7 @@ e: check-core-opcodes
 ;e
 
 e: check-float-opcodes
+  out: F>NUMBER? 
   out: F>S 
   out: S>F 
   out: 1/F 
diff --git a/ueforth/common/opcodes.h b/ueforth/common/opcodes.h
index 33e1dd9..bf1de1f 100644
--- a/ueforth/common/opcodes.h
+++ b/ueforth/common/opcodes.h
@@ -90,7 +90,6 @@ typedef int64_t dcell_t;
   Y(PARSE, DUP; tos = parse(tos, sp)) \
   X("S>NUMBER?", CONVERT, tos = convert((const char *) *sp, tos, g_sys.base, sp); \
                           if (!tos) --sp) \
-  X("F>NUMBER?", FCONVERT, tos = fconvert((const char *) *sp, tos, fp); --sp) \
   Y(CREATE, DUP; DUP; tos = parse(32, sp); \
             create((const char *) *sp, tos, 0, ADDR_DOCREATE); \
             COMMA(0); DROPn(2)) \