diff --git a/lisp/cedet/srecode/srt-mode.el b/lisp/cedet/srecode/srt-mode.el
index 369730521e8..45040246fb2 100644
--- a/lisp/cedet/srecode/srt-mode.el
+++ b/lisp/cedet/srecode/srt-mode.el
@@ -276,7 +276,7 @@ we can tell font lock about them.")
 		  (prin1 (format "%c" key))
 		  )))
 	    (terpri)
-	    (princ (documentation-property C 'variable-documentation))
+	    (princ (cl--class-docstring (cl--find-class C)))
 	    (terpri)
 	    (when showexample
 	      (princ "Example:")