diff --git a/generator/Makefile b/generator/Makefile
index 9e5a4f00b61f96b31e62aff39b24b42b4a1c7ea3..316e8d85eba10035ccfa126edb96ad09f8a183ba 100644
--- a/generator/Makefile
+++ b/generator/Makefile
@@ -90,3 +90,13 @@ endif
 ifeq ($(MAKECMDGOALS),tests/jsref)
 -include $(ML_JSREF:.ml=.ml.d)
 endif
+
+
+
+
+# TODO
+
+# or pattern -> see JsNumber
+# records -> replace warning with code
+# lazy -> use a function for fresh locations in copied extracted code
+# replace "char list" with strings.
diff --git a/generator/tests/jsref/JsNumber.ml b/generator/tests/jsref/JsNumber.ml
index bda40329068e86b95cd4a61700048131708ce327..213e70576166aa79de651de978c6986eb21fa196 100644
--- a/generator/tests/jsref/JsNumber.ml
+++ b/generator/tests/jsref/JsNumber.ml
@@ -136,7 +136,7 @@ let classify_float n =
 
 let to_int32 = fun n ->
   match classify_float n with
-  | FP_normal ->
+  | FP_normal -> (* ARTHUR hacked this from | FP_normal | FP_subnormal *)
     let i32 = 2. ** 32. in
     let i31 = 2. ** 31. in
     let posint = (if n < 0. then (-1.) else 1.) *. (floor (abs_float n)) in
@@ -151,7 +151,7 @@ let to_int32 = fun n ->
 
 let to_uint32 = fun n ->
   match classify_float n with
-  | FP_normal ->
+  | FP_normal -> (* ARTHUR hacked this from | FP_normal | FP_subnormal *)
     let i32 = 2. ** 32. in
     let posint = (if n < 0. then (-1.) else 1.) *. (floor (abs_float n)) in
     let int32bit =