diff --git a/collects/compiler/decompile.ss b/collects/compiler/decompile.ss
index bb40aaf288..75f2d7216a 100644
--- a/collects/compiler/decompile.ss
+++ b/collects/compiler/decompile.ss
@@ -350,7 +350,8 @@
              [(3) (memq (car a) '(unsafe-fl+ unsafe-fl- unsafe-fl* unsafe-fl/
                                              unsafe-fl< unsafe-fl> 
                                              unsafe-fl=
-                                             unsafe-fl<= unsafe-fl>=))]
+                                             unsafe-fl<= unsafe-fl>=
+                                             unsafe-flvector-ref))]
              
              [(4) (memq (car a) '(unsafe-flvector-set!))]
              [else #f])