diff --git a/Lib/Classes/ASPUnitJSONResponder.asp b/Lib/Classes/ASPUnitJSONResponder.asp
index f95c685..df1d1cb 100644
--- a/Lib/Classes/ASPUnitJSONResponder.asp
+++ b/Lib/Classes/ASPUnitJSONResponder.asp
@@ -98,11 +98,13 @@
 		End Function
 
 		Private Function JSONNumberPair(strName, varValue)
-			JSONNumberPair = JSONString(strName) & ":" & varValue
+			JSONNumberPair = JSONString(strName) & ":" & (FormatNumber(varValue, 0, -1, -1, -1))
 		End Function
 
 		Private Function JSONBooleanPair(strName, blnValue)
-			JSONBooleanPair = JSONString(strName) & ":" & LCase(blnValue)
+			Dim output : output = "true"
+			If Not blnValue Then output = "false"
+			JSONBooleanPair = JSONString(strName) & ":" & output
 		End Function
 
 		Private Function JSONStringEscape(strValue)