diff --git a/samples/bounce.scm b/samples/bounce.scm
index b35bb39..97f1d23 100644
--- a/samples/bounce.scm
+++ b/samples/bounce.scm
@@ -29,10 +29,10 @@
 					    ((if (circle-2d-filled? circle)
 						 draw-circle
 						 draw-circle-lines)
-					     (inexact->exact (round (v-x draw-pos)))
-					     (inexact->exact (round (v-y draw-pos)))
+					     (v-x draw-pos)
+					     (v-y draw-pos)
 					     (circle-2d-radius circle)
-					     (use-color (visual-2d-color vis-2d)))))))))))
+					     (visual-2d-color vis-2d))))))))))
 
 
 (define-record-type <rigidbody-2d>