Index: src/library/utils/R/str.R
===================================================================
--- src/library/utils/R/str.R	(revision 48872)
+++ src/library/utils/R/str.R	(working copy)
@@ -544,14 +544,18 @@
 ##__	    str(get(nam, envir = E, mode = M),
 ##__		max.level = max.level, give.attr = give.attr, ...)
 
-	o <- tryCatch(get(nam, envir = E, mode = M), error = function(e)e)
-	if(inherits(o, "error")) {
-	    if(length(grep("missing|not found", o$message)))
-		cat("<missing>\n")
-	    else stop(o$message)
+	if( bindingIsActive( nam, E) ){
+		cat( "<active binding>\n" )
+	} else{
+		o <- tryCatch(get(nam, envir = E, mode = M), error = function(e)e)
+		if(inherits(o, "error")) {
+		    if(length(grep("missing|not found", o$message)))
+			cat("<missing>\n")
+		    else stop(o$message)
+		}
+		else
+		    do.call(str, c(list(o), strargs))
+    	}
 	}
-	else
-	    do.call(str, c(list(o), strargs))
-    }
     invisible(x)
 }
