před 23 roky · 38ed4b3ef3
--- a/packages/base/tcl/tcl80.pp
+++ b/packages/base/tcl/tcl80.pp
@@ -938,7 +938,7 @@ type
 
				 
			
 
				 
			
 
				 implementation
			
 
				-uses SysUtils, Classes;
			
 
				+uses SysUtils {, Classes};
			
 
				 
			
 
				 
			
 
				 // Macro emulation