diff --git a/tex-info.el b/tex-info.el
index 6649b40..682ba09 100644
--- a/tex-info.el
+++ b/tex-info.el
@@ -390,12 +390,18 @@ for @node."
 
 (defun Texinfo-reftex-hook ()
   "Hook function to plug Texinfo into RefTeX."
+  ;; dirty temporary hook to remove when reftex has a Texinfo builtin
+  ;; TODO remove the dirty trick once reftex has been corrected for long enough a time 
+  (unless (assq 'Texinfo reftex-label-alist-builtin)
+    (setq reftex-label-alist-builtin (append reftex-label-alist-builtin
+					     '((Texinfo "Texinfo default environments" nil)))))
   ;; force recompilation of variables
   (when (string= TeX-base-mode-name "Texinfo")
     (dolist (v `((reftex-section-pre-regexp . "@")
 		 ; section post-regexp must contain exactly one group
 		 (reftex-section-post-regexp . "\\([ \t]+\\)")
 		 (reftex-section-info-function . Texinfo-reftex-section-info)
+		 (reftex-default-label-alist-entries . (Texinfo))
 	       (reftex-section-levels
 		. ,(mapcar
 		    (lambda (x)
@@ -405,7 +411,6 @@ for @node."
 			(cons (car x) (cadr x))))
 		    texinfo-section-list))))
       (set (make-local-variable (car v) ) (cdr v)))
-    (setq reftex-tables-dirty t)
     (reftex-ensure-compiled-variables)))
 
 ;;; Keymap: