Index: src/library/utils/R/completion.R
===================================================================
--- src/library/utils/R/completion.R	(revision 52140)
+++ src/library/utils/R/completion.R	(working copy)
@@ -351,7 +351,8 @@
                        else
                        {
                            ## ## suffix must match names(object) (or ls(object) for environments)
-                           .DollarNames(object, pattern = sprintf("^%s", makeRegexpSafe(suffix)))
+                           dollarNames <- if( .isMethodsDispatchOn() ) methods:::.DollarNames else .DollarNames
+                           dollarNames(object, pattern = sprintf("^%s", makeRegexpSafe(suffix)))	
                            ## if (is.environment(object))
                            ## {
                            ##     ls(object,
Index: src/library/methods/R/makeBasicFunsList.R
===================================================================
--- src/library/methods/R/makeBasicFunsList.R	(revision 52140)
+++ src/library/methods/R/makeBasicFunsList.R	(working copy)
@@ -222,7 +222,14 @@
 			base::sample(x, size, replace=replace, prob=prob, ...),
 	       signature = c("x", "size"), where = where)
     setGenericImplicit("sample", where, FALSE)
-
+    
+    setGeneric( ".DollarNames", 
+    	function(x, pattern) standardGeneric(".DollarNames"), 
+    	useAsDefault = function(x,pattern) utils:::.DollarNames(x,pattern), 
+    	signature = "x", 
+    	where = where )
+    setGenericImplicit(".DollarNames", where, FALSE)
+    
     ## not implicitGeneric() which is not yet available "here"
     registerImplicitGenerics(where = where)
 }