ok

class.rkt

@@ -74,7 +74,7 @@
 
   (def-roos (t x) this (supers)
     (y x)
-    ((f a) (* (-> this y) a))
+    ((f a) (* (%-> this y) a))
     )
   
   (check-true
@@ -85,11 +85,11 @@
   (check-true
    (let ((cl (t% 6)))
      (let ((o (new cl)))
-       (= (-> o f 3) 18))))
+       (= (%-> o f 3) 18))))
 
   (check-true
    (let ((o (new t 8)))
-     (= (-> o f 4) 32)))
+     (= (%-> o f 4) 32)))
 
   (check-true
    (= (send (new t 4) f 2) 8))

info.rkt

@@ -1,7 +1,7 @@
 #lang info
 
 (define pkg-authors '(hnmdijkema))
-(define version "0.8.6")
+(define version "0.8.7")
 (define license 'Apache-2.0)
 (define collection "roos")
 (define pkg-desc "A Simple (perl like) OO system for racket")