diff -urN cm-2.4.2.orig/cm.asd cm-2.4.2/cm.asd
--- cm-2.4.2.orig/cm.asd	1969-12-31 18:00:00.000000000 -0600
+++ cm-2.4.2/cm.asd	2005-02-28 16:56:28.000000000 -0600
@@ -0,0 +1,40 @@
+
+(defpackage #:cm-system
+  (:use #:asdf
+	#:common-lisp))
+
+(in-package #:cm-system)
+
+(defsystem #:cm
+  :components ((:module :src
+			:components ((:file "clm-stubs")
+				     (:file "cmn-stubs")
+				     (:module :midishare
+					      :components ((:file "midishare-stubs")))
+				     (:file "pkg")
+				     #+cmu   (:file "cmu")
+				     #+clisp (:file "clisp")
+				     (:file "clos")
+				     (:file "iter")
+				     (:file "level1")
+				     (:file "scheme")
+				     (:file "utils")
+				     (:file "mop")
+				     (:file "objects")
+				     (:file "data")
+				     (:file "scales")
+				     (:file "spectral")
+				     (:file "patterns")
+				     (:file "io")
+				     (:file "scheduler")
+				     (:file "sco")
+				     (:file "clm")
+				     (:file "clm2")
+				     (:file "midi1")
+				     (:file "midi2")
+				     (:file "midi3")
+				     (:module :midishare
+					      :components ((:file "midishare")
+							   (:file "player")))
+				     (:file "cmn"))
+			:serial t)))
\ No newline at end of file
Binary files cm-2.4.2.orig/foster.midi and cm-2.4.2/foster.midi differ
diff -urN cm-2.4.2.orig/src/pkg.lisp cm-2.4.2/src/pkg.lisp
--- cm-2.4.2.orig/src/pkg.lisp	2004-01-22 21:34:00.000000000 -0600
+++ cm-2.4.2/src/pkg.lisp	2005-02-28 16:52:37.000000000 -0600
@@ -29,6 +29,7 @@
   (:shadow :make-load-form
            ;; have to block these from CLM
            :io :ran :exit :quit )
+  (:shadow :warning  )
   ;; use keywords instead of strings for case sensitive lisps.
   (:import-from :clm 
                 :mus-next
@@ -84,5 +85,5 @@
 		:SetParamPlayer :SetTempoPlayer
 		:TicksPerQuarterNote
 		:SetSynchroInPlayer :MidiNewMidiFileInfos
-		:MidiFileLoad :MidiFileSave :mf-clicks :mf-format :mf-timedef)
-  )
+		:MidiFileLoad :MidiFileSave :mf-clicks :mf-format :mf-timedef))
+