diff --git a/impls/vbs/step3_env.vbs b/impls/vbs/step3_env.vbs
index eedff1a996..ebc5759bd3 100644
--- a/impls/vbs/step3_env.vbs
+++ b/impls/vbs/step3_env.vbs
@@ -114,8 +114,8 @@ Sub REPL()
 		On Error Resume Next
 			strRes = REP(strCode)
 			If Err.Number <> 0 Then
-				'WScript.StdErr.WriteLine Err.Source + ": " + Err.Description 
-				WScript.StdErr.WriteLine "Exception: " + Err.Description 
+				'WScript.StdOut.WriteLine Err.Source + ": " + Err.Description 
+				WScript.StdOut.WriteLine "Exception: " + Err.Description 
 			Else
 				If strRes <> "" Then
 					WScript.Echo strRes
diff --git a/impls/vbs/step4_if_fn_do.vbs b/impls/vbs/step4_if_fn_do.vbs
index d9cb2e890b..896f88a895 100644
--- a/impls/vbs/step4_if_fn_do.vbs
+++ b/impls/vbs/step4_if_fn_do.vbs
@@ -128,8 +128,8 @@ Sub REPL()
 		On Error Resume Next
 			strRes = REP(strCode)
 			If Err.Number <> 0 Then
-				'WScript.StdErr.WriteLine Err.Source + ": " + Err.Description 
-				WScript.StdErr.WriteLine "Exception: " + Err.Description 
+				'WScript.StdOut.WriteLine Err.Source + ": " + Err.Description 
+				WScript.StdOut.WriteLine "Exception: " + Err.Description 
 			Else
 				If strRes <> "" Then
 					WScript.Echo strRes
diff --git a/impls/vbs/step5_tco.vbs b/impls/vbs/step5_tco.vbs
index 3b77ecac35..06b0baa797 100644
--- a/impls/vbs/step5_tco.vbs
+++ b/impls/vbs/step5_tco.vbs
@@ -137,8 +137,8 @@ Sub REPL()
 		On Error Resume Next
 			strRes = REP(strCode)
 			If Err.Number <> 0 Then
-				'WScript.StdErr.WriteLine Err.Source + ": " + Err.Description 
-				WScript.StdErr.WriteLine "Exception: " + Err.Description 
+				'WScript.StdOut.WriteLine Err.Source + ": " + Err.Description 
+				WScript.StdOut.WriteLine "Exception: " + Err.Description 
 			Else
 				If strRes <> "" Then
 					WScript.Echo strRes
diff --git a/impls/vbs/step6_file.vbs b/impls/vbs/step6_file.vbs
index c7cb37baa8..9096f1c132 100644
--- a/impls/vbs/step6_file.vbs
+++ b/impls/vbs/step6_file.vbs
@@ -165,8 +165,8 @@ Sub REPL()
 		On Error Resume Next
 			strRes = REP(strCode)
 			If Err.Number <> 0 Then
-				'WScript.StdErr.WriteLine Err.Source + ": " + Err.Description 
-				WScript.StdErr.WriteLine "Exception: " + Err.Description 
+				'WScript.StdOut.WriteLine Err.Source + ": " + Err.Description 
+				WScript.StdOut.WriteLine "Exception: " + Err.Description 
 			Else
 				If strRes <> "" Then
 					WScript.Echo strRes
diff --git a/impls/vbs/step7_quote.vbs b/impls/vbs/step7_quote.vbs
index 4dadef08ef..c060962092 100644
--- a/impls/vbs/step7_quote.vbs
+++ b/impls/vbs/step7_quote.vbs
@@ -289,8 +289,8 @@ Sub REPL()
 		On Error Resume Next
 			strRes = REP(strCode)
 			If Err.Number <> 0 Then
-				'WScript.StdErr.WriteLine Err.Source + ": " + Err.Description 
-				WScript.StdErr.WriteLine "Exception: " + Err.Description 
+				'WScript.StdOut.WriteLine Err.Source + ": " + Err.Description 
+				WScript.StdOut.WriteLine "Exception: " + Err.Description 
 			Else
 				If strRes <> "" Then
 					WScript.Echo strRes
diff --git a/impls/vbs/step8_macros.vbs b/impls/vbs/step8_macros.vbs
index ed02107a3d..3b2ab6befd 100644
--- a/impls/vbs/step8_macros.vbs
+++ b/impls/vbs/step8_macros.vbs
@@ -343,8 +343,8 @@ Sub REPL()
 		On Error Resume Next
 			strRes = REP(strCode)
 			If Err.Number <> 0 Then
-				'WScript.StdErr.WriteLine Err.Source + ": " + Err.Description
-				WScript.StdErr.WriteLine "Exception: " + Err.Description
+				'WScript.StdOut.WriteLine Err.Source + ": " + Err.Description
+				WScript.StdOut.WriteLine "Exception: " + Err.Description
 			Else
 				If strRes <> "" Then
 					WScript.Echo strRes
diff --git a/impls/vbs/step9_try.vbs b/impls/vbs/step9_try.vbs
index 8b4af962e0..75f27104a0 100644
--- a/impls/vbs/step9_try.vbs
+++ b/impls/vbs/step9_try.vbs
@@ -404,13 +404,13 @@ Sub REPL()
 			strRes = REP(strCode)
 			If Err.Number <> 0 Then
 				If Err.Source = "MThrow" Then
-					'WScript.StdErr.WriteLine Err.Source + ": " + _
-					WScript.StdErr.WriteLine "Exception: " + _
+					'WScript.StdOut.WriteLine Err.Source + ": " + _
+					WScript.StdOut.WriteLine "Exception: " + _
 						PrintMalType(objExceptions.Item(Err.Description), True)
 					objExceptions.Remove Err.Description
 				Else
-					'WScript.StdErr.WriteLine Err.Source + ": " + Err.Description
-					WScript.StdErr.WriteLine "Exception: " + Err.Description
+					'WScript.StdOut.WriteLine Err.Source + ": " + Err.Description
+					WScript.StdOut.WriteLine "Exception: " + Err.Description
 				End If
 			Else
 				If strRes <> "" Then
diff --git a/impls/vbs/stepA_mal.vbs b/impls/vbs/stepA_mal.vbs
index d6bc3f3d5b..9992cdb72a 100644
--- a/impls/vbs/stepA_mal.vbs
+++ b/impls/vbs/stepA_mal.vbs
@@ -405,13 +405,13 @@ Sub REPL()
 			strRes = REP(strCode)
 			If Err.Number <> 0 Then
 				If Err.Source = "MThrow" Then
-					'WScript.StdErr.WriteLine Err.Source + ": " + _
-					WScript.StdErr.WriteLine "Exception: " + _
+					'WScript.StdOut.WriteLine Err.Source + ": " + _
+					WScript.StdOut.WriteLine "Exception: " + _
 						PrintMalType(objExceptions.Item(Err.Description), True)
 					objExceptions.Remove Err.Description
 				Else
-					'WScript.StdErr.WriteLine Err.Source + ": " + Err.Description
-					WScript.StdErr.WriteLine "Exception: " + Err.Description
+					'WScript.StdOut.WriteLine Err.Source + ": " + Err.Description
+					WScript.StdOut.WriteLine "Exception: " + Err.Description
 				End If
 			Else
 				If strRes <> "" Then