added format arg to printf to avoid corner-case printf bugs, rackety changes

collects/test-engine/racket-tests.rkt

@@ -5,7 +5,7 @@
          scheme/match
 	 lang/private/continuation-mark-key
          (only scheme/base for memf findf)
-         "test-engine.scm"
+         "test-engine.rkt"
 	 "test-info.scm"
          )
 

collects/test-engine/test-display.scm

@@ -6,7 +6,7 @@
          framework
          string-constants
          "test-info.scm"
-         "test-engine.scm"
+         "test-engine.rkt"
 	 "print.ss"
  	 (except-in deinprogramm/signature/signature signature-violation) ; clashes with test-engine
  	 deinprogramm/quickcheck/quickcheck)

collects/test-engine/test-engine.rkt

@@ -1,6 +1,6 @@
-#lang scheme/base
+#lang racket/base
 
-(require scheme/class
+(require racket/class
          "test-info.scm")
 
 (define test-display-textual%
@@ -99,7 +99,7 @@
     ;; make-link: (listof (U check-fail (U string snip%))) src -> void
     (define (make-link reason dest)
       (print-reason display display reason)
-      (printf (format-src dest)))
+      (printf "~a" (format-src dest)))
 
     (define (format-src src)
       (let ([src-file car]