[R] lmer

[David Barron]

Since the recent update to package lme4, I now get an error when trying to
print the results using lmer to obtain model estimates for anything other
than a liner mixed model.  For example, 

(fm1 <- lmer(decrease ~ treatment + (1|rowpos) +
(1|colpos),family=poisson(),
             data=OrchardSprays))

Produces the error:

Error in checkSlotAssignment(object, name, value) : 
        Assignment of an object of class "NULL" is not valid for slot
"frame" in an object of class "summary.lmer"; is(value, "data.frame") is not
TRUE
Error in show(new("summary.lmer", object, useScale = TRUE, showCorrelation =
FALSE)) : 
        Unable to find the argument "object" in selecting a method for
function "show"

My version information:

platform i386-pc-mingw32
arch     i386           
os       mingw32        
system   i386, mingw32  
status                  
major    2              
minor    0.1            
year     2004           
month    11             
day      15             
language R      

Any help greately appreciated!