Index: vhUnitTest/TECH/Math/Floor/Test.cls.xml
===================================================================
diff -u -r3164 -r3166
--- vhUnitTest/TECH/Math/Floor/Test.cls.xml	(.../Test.cls.xml)	(revision 3164)
+++ vhUnitTest/TECH/Math/Floor/Test.cls.xml	(.../Test.cls.xml)	(revision 3166)
@@ -54,6 +54,9 @@
 	
 	Do $$$AssertEquals(##class(TECH.Math).Floor(0.999999,6),".999999")
 	Do $$$AssertEquals(##class(TECH.Math).Floor(-0.999999,6),"-.999999")
+	
+	Do $$$AssertEquals(##class(TECH.Math).Floor("4.550",2),"4.55")
+	Do $$$AssertEquals(##class(TECH.Math).Floor("-4.550",2),"-4.55")
 ]]></Implementation>
 </Method>
 
Index: TECH/Math.cls.xml
===================================================================
diff -u -r3164 -r3166
--- TECH/Math.cls.xml	(.../Math.cls.xml)	(revision 3164)
+++ TECH/Math.cls.xml	(.../Math.cls.xml)	(revision 3166)
@@ -29,7 +29,7 @@
 	Quit:$$$Not(Getal?0.1"-".N0.1".".N) "" ; geen geldig getal -> om backwards compatible te blijven ; zou eigenlijk moeten 0 zijn
 	Quit:Getal="." ""					   ; uitzondering om backwards compatible te blijven ; zou eigenlijk moeten 0 zijn
 	Quit:$$$Not(Getal[".") +Getal		   ; indien niet decimaal
-	Quit:(Getal[".")&&($Length($Piece(Getal,".",2))=CijfersNaKomma) +Getal ; Getal bevat evenveel cijfers na komma als opgegeven CijfersNaKomma
+	Quit:(Getal[".")&&($Length($Piece(+Getal,".",2))=CijfersNaKomma) +Getal ; Getal bevat evenveel cijfers na komma als opgegeven CijfersNaKomma
 	
 	#dim Floored As %Float
 	#dim Factor As %Integer = 10**CijfersNaKomma