diff --git a/R/dmn.R b/R/dmn.R
index 9725f4a..98755c2 100644
--- a/R/dmn.R
+++ b/R/dmn.R
@@ -65,7 +65,7 @@ mixturewt <-
 {
     fit <- object@fit$Estimate
     if (scale)
-        fit <- scale(fit, FALSE, mixturewt(object)@theta)
+        fit <- scale(fit, FALSE, mixturewt(object)$theta)
     fit
 }