--- a/Number.st	Wed Jun 21 20:46:19 2017 +0200
+++ b/Number.st	Wed Jun 21 20:48:45 2017 +0200
@@ -1168,7 +1168,18 @@
 !
 
 asMetaNumber
+    self isNaN ifTrue:[
+        ^ NotANumber NaN
+    ].    
     ^ SomeNumber new realNumber:self
+
+    "
+     Float NaN asMetaNumber
+     Float infinity asMetaNumber
+     Float negativeInfinity asMetaNumber
+    "
+
+    "Modified (comment): / 21-06-2017 / 20:47:59 / cg"
 !
 
 asNumber