diff --git a/install/demo/quad.pp b/install/demo/quad.pp
index 23ae3bba29..38702e62c1 100644
--- a/install/demo/quad.pp
+++ b/install/demo/quad.pp
@@ -79,6 +79,7 @@ Var b           : array[1..nox,1..noy] Of card;
     bgidirec    : string;
     time        : time_record;
 
+{
 Procedure fatal(fcall:String);
 Begin
   textmode(CO80);
@@ -90,6 +91,7 @@ Begin
   readln;
   halt;
 End;
+}
 
 Procedure ginit640x480x16(direc:String);