Index: vg.scm
==================================================================
--- vg.scm
+++ vg.scm
@@ -8,11 +8,11 @@
 ;;  implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
 ;;  PURPOSE.
 
 ;;  strftime('%m/%d/%Y %H:%M:%S','now','localtime')
 
-(use defstruct srfi-1)
+(use typed-records srfi-1)
 
 (declare (unit vg))
 (use canvas-draw iup)
 (import canvas-draw-iup)