diff --git a/rtl/amiga/printer.pp b/rtl/amiga/printer.pp
index 3f649fdba4..d7c7b1dcf6 100644
--- a/rtl/amiga/printer.pp
+++ b/rtl/amiga/printer.pp
@@ -22,19 +22,12 @@ var
 
 implementation
 
-var
-  old_exit : pointer;
-
-procedure printer_exit;
-begin
-  close(lst);
-  exitproc:=old_exit;
-end;
 
 
 begin
   assign(lst,'prt:');
   rewrite(lst);
-  old_exit:=exitproc;
-  exitproc:=@printer_exit;
 end.
+{
+ $Log :printer.pp,v $
+}