Update 1002.scm