@@ -16,16 +16,34 @@
 ;;     You should have received a copy of the GNU General Public License
 ;;     along with Megatest.  If not, see <http://www.gnu.org/licenses/>.
 ;;
 ;;======================================================================
 
+(declare (unit gutils))
+
+(module gutils
+	*
+	
 (import (prefix iup iup:)
 	canvas-draw)
 
-(import srfi-1 regex regex-case srfi-69)
+(import scheme
+	 chicken.base
+	 chicken.condition
+	 chicken.string
+	 chicken.pretty-print
+	 chicken.sort
+	 chicken.time
+	 
+	 chicken.file
+	 chicken.file.posix
+	 chicken.process
+	 chicken.process-context
+	 chicken.process-context.posix)
 
-(declare (unit gutils))
+	 
+(import srfi-1 regex regex-case srfi-69)
 
 ;; NOTE: These functions will move to iuputils
 
 (define (gutils:colors-similar? color1 color2)
   (let* ((c1 (map string->number (string-split color1)))
@@ -88,5 +106,6 @@
     (else               (list
 			 ;; "192 192 192"
 			 "222 222 221"
 			 state))))
 
+)