diff --git a/R/summary.forest.R b/R/summary.forest.R
index 9e0de5ac..00d578c1 100644
--- a/R/summary.forest.R
+++ b/R/summary.forest.R
@@ -80,8 +80,8 @@ summary.forest<-function(object, SpParams, ...) {
   s["SWRground"] <- NA
   
   if(all(!is.na(object$treeData$Height)) && all(!is.na(object$shrubData$Height))) {
-    light_PARground(object, SpParams)
-    light_SWRground(object, SpParams)
+    s["PARground"] <- light_PARground(object, SpParams)
+    s["SWRground"] <- light_SWRground(object, SpParams)
   }
   class(s)<-c("summary.forest","list")
   return(s)