diff --git a/shared/cpsl/examples/function/hanoi.cpsl b/shared/cpsl/examples/function/hanoi.cpsl
index 0359817..6b15b4a 100644
--- a/shared/cpsl/examples/function/hanoi.cpsl
+++ b/shared/cpsl/examples/function/hanoi.cpsl
@@ -1,6 +1,6 @@
 var disks : integer;
 
-procedure moveTower(var disk: integer; source,dest,spare: character);
+procedure moveTower(var disk: integer; source,dest,spare: char);
 begin
 	if(disk=1) then
 		write("Move ",disk," from ",source," to ",dest,'\n');