diff -ur a/Zelig/R/bootfn.default.R b/Zelig/R/bootfn.default.R
--- a/Zelig/R/bootfn.default.R	2011-10-04 12:58:06.000000000 +0200
+++ b/Zelig/R/bootfn.default.R	2011-11-03 17:25:40.000000000 +0100
@@ -1,12 +1,12 @@
 bootfn.default <- function(data, i, object) {
   d <- data[i,]
-  object$call$data <- d
+  object@call$data <- d
   l <- length(param(object, bootstrap = TRUE))
-  fit <- eval(object$call, sys.parent())
+  fit <- eval(object@call, sys.parent())
   l1 <- length(param(fit, bootstrap = TRUE))
   while (l > l1) {
-    object$call$data <- data[sample(nrow(data), replace=TRUE),]
-    fit <- eval(object$call, sys.parent())
+    object@call$data <- data[sample(nrow(data), replace=TRUE),]
+    fit <- eval(object@call, sys.parent())
     l1 <- length(param(fit, bootstrap = TRUE))
   }
   param(fit, bootstrap = TRUE)
diff -ur a/Zelig/R/param.mixed.R b/Zelig/R/param.mixed.R
--- a/Zelig/R/param.mixed.R	2011-10-04 12:58:06.000000000 +0200
+++ b/Zelig/R/param.mixed.R	2011-11-03 20:20:23.000000000 +0100
@@ -24,7 +24,8 @@
 		}
 	}
 	else {
-		object <- summary(object)
+		#object <- summary(object)
+		object <- selectMethod("summary", "mer")(object)
 		# set fixed effects
 		betasF <- fixed
 		# sample random effects
@@ -39,4 +40,4 @@
 	scale <- object@sigma
 	
 	list(betas=betas, gammas=gammas, scale=scale)
-}
\ Kein Zeilenumbruch am Dateiende.
+}