diff --git a/t/ret-01.hcl b/t/ret-01.hcl
index 290991e..82ed230 100644
--- a/t/ret-01.hcl
+++ b/t/ret-01.hcl
@@ -25,11 +25,11 @@
 
 (defun ff() (return 999))
 
-; test a normal block return
+## test a normal block return
 (set a (ff))
 (if (/= a 999) (printf "ERROR: a must be 999\n"))
 (printf "OK %d\n" a)
 
-; return from top-level
+## return from top-level
 (return 10)
 (printf "ERROR: this line must not be printed\n")
diff --git a/t/retvar-01.hcl b/t/retvar-01.hcl
index ffe6661..2ba8c54 100644
--- a/t/retvar-01.hcl
+++ b/t/retvar-01.hcl
@@ -1,5 +1,5 @@
 ((lambda ()
-	; test return variables
+	## test return variables
 
 	| v1 v2 v3 i a b c d |
 
@@ -18,7 +18,7 @@
 	(if (/= v3 1099) (printf "ERROR: v3 must be 1099\n"))
 	(printf "OK v1=%d v2=%d v3=%d\n" v1 v2 v3)
 
-	(set-r v1 v2 (ff 1 2)) ; using 2 return variables only. not assigning to v3
+	(set-r v1 v2 (ff 1 2)) ## using 2 return variables only. not assigning to v3
 	(if (/= v1 1003) (printf "ERROR: v1 must be 1003\n"))
 	(if (/= v2 2006) (printf "ERROR: v2 must be 2006\n"))
 	(if (/= v3 1099) (printf "ERROR: v3 must be 1099\n"))
@@ -27,7 +27,7 @@
 
 
 
-	; test return variables in message sends
+	## test return variables in message sends
 	(defclass B
 		::: | X1 X2 |