diff --git a/src/rustint/core.clj b/src/rustint/core.clj
index 3427f9c..6754e50 100644
--- a/src/rustint/core.clj
+++ b/src/rustint/core.clj
@@ -2215,7 +2215,10 @@
 ;                                                                                                                           ^  ^^^^^^^^^^^^                                                                    ^^^^^^^^^^^^^^^^^                                                                               ^^^^^^^^^^^^
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 (defn generar-ref [amb]
-  amb
+  (cond
+    (not= (estado amb) :sin-errores) amb
+    :else (generar amb 'PUSHADDR 0)
+  )
 )
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;