diff --git a/R/develop.R b/R/develop.R
index 311c55a3081e4459db5ff49270b00c282b98dcab..932ddf3ae1494508b64f05c7a1fb8ea0caa5386d 100644
--- a/R/develop.R
+++ b/R/develop.R
@@ -125,8 +125,8 @@ lines.discreteSpectrum <- function (M,...){
 #' @rdname discreteSpectrum
 #' @export
 print.discreteSpectrum <- function (M,...){
-  N <- nrows(as.data.frame(M))
-  print.data.frame(cbind(as.data.frame(M[:,min(10,N)]), Period=2*pi/M$Freq))
+  N <- nrow(as.data.frame(M))
+  print.data.frame(cbind(as.data.frame(M[min(10,N),]), Period=2*pi/M$Freq))
   if (N > 10) print(sprintf("... + %d other rows \n", N-10))
 }